Mapa

Row

Lugares por visitar

Row

Descripción del mapa

Este es un mapa de lugares a los que me gustaría ir

Son sitios que me parecen agradables ya sea por sus playas, sus paisajes, o su comida. Torreón es especial, pues si bien no es reconocido por nada de lo que he mencionado antes, es el lugar donde se encuentra el estadio de mi equipo favorito de futbol: Santos Laguna.



O hipervínculos, por ejemplo a Google

Row

Referencias

  1. Referencia uno

  2. Referencia dos

  3. Referencia tres

---
title: "Vacaciones"
author: "Fernando Sóstenes Hernández"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    favicon: escudo.jpg
    logo: escudo.jpg
    fig_mobile: TRUE
    theme: cosmo
    social: menu
    source_code: embed
    navbar:
      - {title: "Crea tu propio mapa", href: "https://rstudio.cloud/project/2897129", align: right, icon: fa-map-marker}
      - {title: "INAE V, Economía UNAM", href: "http://www.economia.unam.mx/", align: right, icon: fa-school}
---

```{r global, include=FALSE}
library(leaflet)
library(leaflet.extras)
```

Mapa {data-icon="fa-map"}
=====================================

Row
-----------------------------------------------------------------------

### Lugares por visitar

```{r}
### Registramos la información de los lugares
lugar1 <- c(Nombre = "Torreón", Giro = "Santos Laguna", longitud = -103.41898, latitud = 25.54389)
lugar2 <- c(Nombre = "Mérida", Giro = "Turístico", longitud = -89.61696, latitud = 20.97537)
lugar3 <- c(Nombre = "Bacalar", Giro = "Turístico", longitud = -88.39333, latitud = 18.68109)
lugar4 <- c(Nombre = "Nayarit", Giro = "Turístico", longitud = -104.89569, latitud = 22.25056)
lugar5 <- c(Nombre = "Guadalajara", Giro = "Turístico", longitud = -103.39182, latitud = 20.66682)
lugar6 <- c(Nombre = "Puerto Vallarta", Giro = "Turístico", longitud = -105.23018, latitud = 20.617)

### Creamos una tabla de datos con la información de los lugares
lugares <- data.frame(rbind(lugar1, lugar2, lugar3, lugar4, lugar5, lugar6))

### Nos aseguramos de que la latitud y longitud sean números
lugares$longitud <- as.numeric(lugares$longitud)
lugares$latitud <- as.numeric(lugares$latitud)

### Creamos el mapa
mapa <- leaflet(lugares) %>% setView(lng = -99.3, lat = 19.4, zoom = 5) %>% addTiles() %>% addMarkers(~longitud, ~latitud, popup = paste(sep = "
", "Nombre:", lugares$Nombre, "Giro:", lugares$Giro)) 

### Agregamos el botón de reset y la barra de herramientas de dibujo al mapa
mapa %>% addResetMapButton() %>% addDrawToolbar(editOptions = editToolbarOptions(selectedPathOptions = selectedPathOptions())) 

### Imprimimos el mapa
mapa
```



Row
-----------------------------------------------------------------------

### Descripción del mapa

**Este es un mapa de lugares a los que me gustaría ir**

Son sitios que me parecen agradables ya sea por sus playas, sus paisajes, o su comida.
Torreón es especial, pues si bien no es reconocido por nada de lo que he mencionado antes, es el lugar donde se encuentra el estadio de mi equipo favorito de futbol: Santos Laguna.


![](estadio-tsm.jpg){weight="150"}



[O hipervínculos, por ejemplo a Google](https://www.google.com.mx/)



Row
-----------------------------------------------------------------------

### Referencias

1.  Referencia uno

2.  Referencia dos

3.  Referencia tres